home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / Plasmatech / ptscp_eval.exe / %MAINDIR% / EvalC4 / UPTShell95.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  2001-08-31  |  16.4 KB  |  561 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'UPTShell95.pas' rev: 4.00
  6.  
  7. #ifndef UPTShell95HPP
  8. #define UPTShell95HPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #include <ShellAPI.hpp>    // Pascal unit
  13. #include <Graphics.hpp>    // Pascal unit
  14. #include <Windows.hpp>    // Pascal unit
  15. #include <OLE2.hpp>    // Pascal unit
  16. #include <SysInit.hpp>    // Pascal unit
  17. #include <System.hpp>    // Pascal unit
  18.  
  19. //-- user supplied -----------------------------------------------------------
  20. #define NO_WIN32_LEAN_AND_MEAN
  21. #define __exdisp_h__
  22. #include <DsgnIntf.hpp>
  23. #include <ShlObj.hpp>
  24. #include <Utilcls.h>
  25. #include <ComObj.hpp>
  26.  
  27. namespace Uptshell95
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. typedef int TPTHWND;
  31.  
  32. #pragma pack(push, 1)
  33. struct TSHItemID
  34. {
  35.     Word cb;
  36.     Byte abID[1];
  37. } ;
  38. #pragma pack(pop)
  39.  
  40. typedef TSHItemID *PSHItemID;
  41.  
  42. #pragma pack(push, 1)
  43. struct TItemIDList
  44. {
  45.     TSHItemID mkid;
  46. } ;
  47. #pragma pack(pop)
  48.  
  49. typedef TItemIDList *PItemIDList;
  50.  
  51. typedef PItemIDList *PPItemIdList;
  52.  
  53. typedef GUID *TRefIId;
  54.  
  55. class DELPHICLASS IUnknown;
  56. #pragma pack(push, 4)
  57. class PASCALIMPLEMENTATION IUnknown : public System::TObject 
  58. {
  59.     typedef System::TObject inherited;
  60.     
  61. public:
  62.     virtual unsigned __stdcall QueryInterface(const GUID &iid, void *obj) = 0 ;
  63.     virtual int __stdcall AddRef(void) = 0 ;
  64.     virtual int __stdcall Release(void) = 0 ;
  65. public:
  66.     #pragma option push -w-inl
  67.     /* TObject.Create */ inline __fastcall IUnknown(void) : System::TObject() { }
  68.     #pragma option pop
  69.     #pragma option push -w-inl
  70.     /* TObject.Destroy */ inline __fastcall virtual ~IUnknown(void) { }
  71.     #pragma option pop
  72.     
  73. };
  74.  
  75. #pragma pack(pop)
  76.  
  77. class DELPHICLASS IOleWindow;
  78. #pragma pack(push, 4)
  79. class PASCALIMPLEMENTATION IOleWindow : public IUnknown 
  80. {
  81.     typedef IUnknown inherited;
  82.     
  83. public:
  84.     virtual unsigned __stdcall GetWindow(HWND &wnd) = 0 ;
  85.     virtual unsigned __stdcall ContextSensitiveHelp(BOOL fEnterMode) = 0 ;
  86. public:
  87.     #pragma option push -w-inl
  88.     /* TObject.Create */ inline __fastcall IOleWindow(void) : IUnknown() { }
  89.     #pragma option pop
  90.     #pragma option push -w-inl
  91.     /* TObject.Destroy */ inline __fastcall virtual ~IOleWindow(void) { }
  92.     #pragma option pop
  93.     
  94. };
  95.  
  96. #pragma pack(pop)
  97.  
  98. #pragma pack(push, 1)
  99. struct TStrRet
  100. {
  101.     unsigned uType;
  102.     union
  103.     {
  104.         struct 
  105.         {
  106.             char cStr[261];
  107.             
  108.         };
  109.         struct 
  110.         {
  111.             unsigned uOffset;
  112.             
  113.         };
  114.         struct 
  115.         {
  116.             wchar_t *pOleStr;
  117.             
  118.         };
  119.         
  120.     };
  121. } ;
  122. #pragma pack(pop)
  123.  
  124. typedef TStrRet *PStrRet;
  125.  
  126. #pragma pack(push, 1)
  127. struct TShColInfo
  128. {
  129.     int justify;
  130.     int width;
  131.     TStrRet text;
  132. } ;
  133. #pragma pack(pop)
  134.  
  135. typedef TShColInfo *PShColInfo;
  136.  
  137. class DELPHICLASS IShellDetails;
  138. #pragma pack(push, 4)
  139. class PASCALIMPLEMENTATION IShellDetails : public IUnknown 
  140. {
  141.     typedef IUnknown inherited;
  142.     
  143. public:
  144.     virtual unsigned __stdcall GetDetailsOf(PItemIDList pidl, unsigned col, TShColInfo &info) = 0 ;
  145.     virtual unsigned __stdcall ColumnClick(unsigned col) = 0 ;
  146. public:
  147.     #pragma option push -w-inl
  148.     /* TObject.Create */ inline __fastcall IShellDetails(void) : IUnknown() { }
  149.     #pragma option pop
  150.     #pragma option push -w-inl
  151.     /* TObject.Destroy */ inline __fastcall virtual ~IShellDetails(void) { }
  152.     #pragma option pop
  153.     
  154. };
  155.  
  156. #pragma pack(pop)
  157.  
  158. typedef int SLR_FLAGS;
  159.  
  160. typedef int SLGP_FLAGS;
  161.  
  162. #pragma pack(push, 1)
  163. struct TCMInvokeCommandInfo
  164. {
  165.     unsigned cbSize;
  166.     unsigned fMask;
  167.     unsigned hwnd;
  168.     char *lpVerb;
  169.     char *lpParameters;
  170.     char *lpDirectory;
  171.     int nShow;
  172.     unsigned dwHotKey;
  173.     unsigned hIcon;
  174. } ;
  175. #pragma pack(pop)
  176.  
  177. typedef TCMInvokeCommandInfo *PCMInvokeCommandInfo;
  178.  
  179. class DELPHICLASS IContextMenu;
  180. #pragma pack(push, 4)
  181. class PASCALIMPLEMENTATION IContextMenu : public IUnknown 
  182. {
  183.     typedef IUnknown inherited;
  184.     
  185. public:
  186.     virtual unsigned __stdcall QueryContextMenu(unsigned hMenu, unsigned indexMenu, unsigned idCmdFirst
  187.         , unsigned idCmdLast, unsigned uFlags) = 0 ;
  188.     virtual unsigned __stdcall InvokeCommand(const TCMInvokeCommandInfo &ici) = 0 ;
  189.     virtual unsigned __stdcall GetCommandString(unsigned idCmd, unsigned uType, PUINT pwReserved, char * 
  190.         pszName, unsigned cchMax) = 0 ;
  191. public:
  192.     #pragma option push -w-inl
  193.     /* TObject.Create */ inline __fastcall IContextMenu(void) : IUnknown() { }
  194.     #pragma option pop
  195.     #pragma option push -w-inl
  196.     /* TObject.Destroy */ inline __fastcall virtual ~IContextMenu(void) { }
  197.     #pragma option pop
  198.     
  199. };
  200.  
  201. #pragma pack(pop)
  202.  
  203. class DELPHICLASS IContextMenu2;
  204. #pragma pack(push, 4)
  205. class PASCALIMPLEMENTATION IContextMenu2 : public IContextMenu 
  206. {
  207.     typedef IContextMenu inherited;
  208.     
  209. public:
  210.     virtual unsigned __stdcall HandleMenuMsg(unsigned uMsg, unsigned wParam, unsigned lParam) = 0 ;
  211. public:
  212.         
  213.     #pragma option push -w-inl
  214.     /* TObject.Create */ inline __fastcall IContextMenu2(void) : IContextMenu() { }
  215.     #pragma option pop
  216.     #pragma option push -w-inl
  217.     /* TObject.Destroy */ inline __fastcall virtual ~IContextMenu2(void) { }
  218.     #pragma option pop
  219.     
  220. };
  221.  
  222. #pragma pack(pop)
  223.  
  224. class DELPHICLASS IEnumIDList;
  225. #pragma pack(push, 4)
  226. class PASCALIMPLEMENTATION IEnumIDList : public IUnknown 
  227. {
  228.     typedef IUnknown inherited;
  229.     
  230. public:
  231.     virtual unsigned __stdcall Next(int celt, PItemIDList &pidl, Windows::PInteger pFetched) = 0 ;
  232.     virtual unsigned __stdcall Skip(int celt) = 0 ;
  233.     virtual unsigned __stdcall Reset(void) = 0 ;
  234.     virtual unsigned __stdcall Clone(IEnumIDList* &enumIdList) = 0 ;
  235. public:
  236.     #pragma option push -w-inl
  237.     /* TObject.Create */ inline __fastcall IEnumIDList(void) : IUnknown() { }
  238.     #pragma option pop
  239.     #pragma option push -w-inl
  240.     /* TObject.Destroy */ inline __fastcall virtual ~IEnumIDList(void) { }
  241.     #pragma option pop
  242.     
  243. };
  244.  
  245. #pragma pack(pop)
  246.  
  247. typedef unsigned SHGNO;
  248.  
  249. typedef unsigned SHCONTF;
  250.  
  251. class DELPHICLASS IShellFolder;
  252. #pragma pack(push, 4)
  253. class PASCALIMPLEMENTATION IShellFolder : public IUnknown 
  254. {
  255.     typedef IUnknown inherited;
  256.     
  257. public:
  258.     virtual unsigned __stdcall ParseDisplayName(HWND hwndOwner, void * reserved, wchar_t * displayName, 
  259.         unsigned &chEaten, PItemIDList &pidl, unsigned &dwAttributes) = 0 ;
  260.     virtual unsigned __stdcall EnumObjects(HWND hwndOwner, unsigned grfFlags, IEnumIDList* &penumIdList
  261.         ) = 0 ;
  262.     virtual unsigned __stdcall BindToObject(PItemIDList pidl, void * reserved, TRefIId riid, void * &pvOut
  263.         ) = 0 ;
  264.     virtual unsigned __stdcall BindToStorage(PItemIDList pidl, void * reserved, TRefIId riid, void * &pvObj
  265.         ) = 0 ;
  266.     virtual unsigned __stdcall CompareIDs(int lparam, PItemIDList pidl1, PItemIDList pidl2) = 0 ;
  267.     virtual unsigned __stdcall CreateViewObject(HWND hwndOwner, TRefIId riid, void * &ppvOut) = 0 ;
  268.     virtual unsigned __stdcall GetAttributesOf(unsigned cidl, PItemIDList &pidl, unsigned &rgfInOut) = 0 
  269.         ;
  270.     virtual unsigned __stdcall GetUIObjectOf(HWND hwndOwner, unsigned cild, PItemIDList &pidl, TRefIId 
  271.         riid, PUINT prgfInOut, void * &ppvOut) = 0 ;
  272.     virtual unsigned __stdcall GetDisplayNameOf(PItemIDList pidl, unsigned uFlags, TStrRet &name) = 0 ;
  273.         
  274.     virtual unsigned __stdcall SetNameOf(HWND hwndOwner, PItemIDList pidl, wchar_t * swzName, unsigned 
  275.         uFlags, PItemIDList &pidlOut) = 0 ;
  276. public:
  277.     #pragma option push -w-inl
  278.     /* TObject.Create */ inline __fastcall IShellFolder(void) : IUnknown() { }
  279.     #pragma option pop
  280.     #pragma option push -w-inl
  281.     /* TObject.Destroy */ inline __fastcall virtual ~IShellFolder(void) { }
  282.     #pragma option pop
  283.     
  284. };
  285.  
  286. #pragma pack(pop)
  287.  
  288. class DELPHICLASS IShellFolder2;
  289. #pragma pack(push, 4)
  290. class PASCALIMPLEMENTATION IShellFolder2 : public IShellFolder 
  291. {
  292.     typedef IShellFolder inherited;
  293.     
  294. public:
  295.     virtual void __stdcall F1(void) = 0 ;
  296.     virtual void __stdcall F2(void) = 0 ;
  297.     virtual void __stdcall F3(void) = 0 ;
  298.     virtual unsigned __stdcall GetDefaultColumnState(unsigned iColumn, unsigned &pcsFlags) = 0 ;
  299.     virtual void __stdcall F5(void) = 0 ;
  300.     virtual unsigned __stdcall GetDetailsOf(PItemIDList pidl, unsigned iColumn, TShColInfo &sd) = 0 ;
  301. public:
  302.         
  303.     #pragma option push -w-inl
  304.     /* TObject.Create */ inline __fastcall IShellFolder2(void) : IShellFolder() { }
  305.     #pragma option pop
  306.     #pragma option push -w-inl
  307.     /* TObject.Destroy */ inline __fastcall virtual ~IShellFolder2(void) { }
  308.     #pragma option pop
  309.     
  310. };
  311.  
  312. #pragma pack(pop)
  313.  
  314. class DELPHICLASS IShellLink;
  315. #pragma pack(push, 4)
  316. class PASCALIMPLEMENTATION IShellLink : public IUnknown 
  317. {
  318.     typedef IUnknown inherited;
  319.     
  320. public:
  321.     virtual unsigned __stdcall GetPath(char * pszFile, int cchMaxPath, _WIN32_FIND_DATAA &fd, unsigned 
  322.         fFlags) = 0 ;
  323.     virtual unsigned __stdcall GetIDList(PItemIDList &pidl) = 0 ;
  324.     virtual unsigned __stdcall SetIDList(PItemIDList pidl) = 0 ;
  325.     virtual unsigned __stdcall GetDescription(char * pszName, int cchMaxName) = 0 ;
  326.     virtual unsigned __stdcall SetDescription(char * pszName) = 0 ;
  327.     virtual unsigned __stdcall GetWorkingDirectory(char * pszDir, int cchMaxPath) = 0 ;
  328.     virtual unsigned __stdcall SetWorkingDirectory(char * pszDir) = 0 ;
  329.     virtual unsigned __stdcall GetArguments(char * pszArgs, int cchMaxPath) = 0 ;
  330.     virtual unsigned __stdcall SetArguments(char * pszArgs) = 0 ;
  331.     virtual unsigned __stdcall GetHotKey(Word &wHotKey) = 0 ;
  332.     virtual unsigned __stdcall SetHotKey(Word wHotKey) = 0 ;
  333.     virtual unsigned __stdcall GetShowCmd(int &iShowCmd) = 0 ;
  334.     virtual unsigned __stdcall SetShowCmd(int iShowCmd) = 0 ;
  335.     virtual unsigned __stdcall GetIconLocation(char * pszIconPath, int cchIconPath, int &iIcon) = 0 ;
  336.     virtual unsigned __stdcall SetIconLocation(char * pszIconPath, int iIcon) = 0 ;
  337.     virtual unsigned __stdcall SetRelativePath(char * pszPathRel, unsigned dwReserved) = 0 ;
  338.     virtual unsigned __stdcall Resolve(HWND hwnd, unsigned fFlags) = 0 ;
  339.     virtual unsigned __stdcall SetPath(char * pszFile) = 0 ;
  340. public:
  341.     #pragma option push -w-inl
  342.     /* TObject.Create */ inline __fastcall IShellLink(void) : IUnknown() { }
  343.     #pragma option pop
  344.     #pragma option push -w-inl
  345.     /* TObject.Destroy */ inline __fastcall virtual ~IShellLink(void) { }
  346.     #pragma option pop
  347.     
  348. };
  349.  
  350. #pragma pack(pop)
  351.  
  352. class DELPHICLASS IShellBrowser;
  353. #pragma pack(push, 4)
  354. class PASCALIMPLEMENTATION IShellBrowser : public IUnknown 
  355. {
  356.     typedef IUnknown inherited;
  357.     
  358. public:
  359.     #pragma option push -w-inl
  360.     /* TObject.Create */ inline __fastcall IShellBrowser(void) : IUnknown() { }
  361.     #pragma option pop
  362.     #pragma option push -w-inl
  363.     /* TObject.Destroy */ inline __fastcall virtual ~IShellBrowser(void) { }
  364.     #pragma option pop
  365.     
  366. };
  367.  
  368. #pragma pack(pop)
  369.  
  370. typedef int __stdcall (*TBrowseCallbackProc)(HWND ahwnd, unsigned uMsg, int lParam, void * lpData);
  371.  
  372. #pragma pack(push, 1)
  373. struct TBrowseInfo
  374. {
  375.     HWND hwndOwner;
  376.     TItemIDList *pidlRoot;
  377.     char *pszDisplayName;
  378.     char *lpszTitle;
  379.     unsigned ulFlags;
  380.     TBrowseCallbackProc lpfn;
  381.     unsigned lParam;
  382.     int iImage;
  383. } ;
  384. #pragma pack(pop)
  385.  
  386. typedef TBrowseInfo *PBrowseInfo;
  387.  
  388. #pragma pack(push, 1)
  389. struct TNResArray
  390. {
  391.     unsigned cItems;
  392.     _NETRESOURCEA nr[1];
  393. } ;
  394. #pragma pack(pop)
  395.  
  396. typedef TNResArray *PNResArray;
  397.  
  398. #pragma pack(push, 1)
  399. struct TCIDA
  400. {
  401.     unsigned cidl;
  402.     unsigned aoffset[1];
  403. } ;
  404. #pragma pack(pop)
  405.  
  406. typedef TCIDA *PCIDA;
  407.  
  408. #pragma pack(push, 1)
  409. struct TFileDescriptor
  410. {
  411.     unsigned dwFlags;
  412.     GUID clsID;
  413.     tagSIZE sizel;
  414.     Windows::TPoint pointl;
  415.     unsigned dwFileAttributes;
  416.     _FILETIME ftCreationTime;
  417.     _FILETIME ftLastAccessTime;
  418.     _FILETIME ftLastWriteTime;
  419.     unsigned nFileSizeHigh;
  420.     unsigned nFileSizeLow;
  421.     char cFileName[260];
  422. } ;
  423. #pragma pack(pop)
  424.  
  425. typedef TFileDescriptor *PFileDescriptor;
  426.  
  427. #pragma pack(push, 1)
  428. struct TFileGroupDescriptor
  429. {
  430.     unsigned cItems;
  431.     TFileDescriptor fgd[1];
  432. } ;
  433. #pragma pack(pop)
  434.  
  435. typedef TFileGroupDescriptor *PFileGroupDescriptor;
  436.  
  437. #pragma pack(push, 1)
  438. struct TDropFiles
  439. {
  440.     unsigned pFiles;
  441.     Windows::TPoint pt;
  442.     BOOL fNC;
  443.     BOOL fWide;
  444. } ;
  445. #pragma pack(pop)
  446.  
  447. typedef TDropFiles *PDropFiles;
  448.  
  449. #pragma pack(push, 1)
  450. struct TShDescriptionId
  451. {
  452.     unsigned dwDescriptionId;
  453.     GUID clsid;
  454. } ;
  455. #pragma pack(pop)
  456.  
  457. typedef TShDescriptionId *PShDescriptionId;
  458.  
  459. typedef unsigned __stdcall (*TSHGetDataFromIDListA)(IShellFolder* ishf, PItemIDList pidl, int nFormat
  460.     , void * pv, int cb);
  461.  
  462. //-- var, const, procedure ---------------------------------------------------
  463. static const Byte PTSHELLCONTROLS_VERSION = 0xa0;
  464. static const Byte PTSHELLCONTROLS_PATCHSYM = 0x20;
  465. static const Shortint PTSHELLCONTROLS_PATCH = 0xffffffc0;
  466. extern PACKAGE GUID CLSID_ShellDesktop;
  467. extern PACKAGE GUID CLSID_ShellLink;
  468. extern PACKAGE GUID CLSID_InternetShortcut;
  469. extern PACKAGE GUID IID_INewShortcutHookA;
  470. extern PACKAGE GUID IID_IShellBrowser;
  471. extern PACKAGE GUID IID_IShellView;
  472. extern PACKAGE GUID IID_IContextMenu;
  473. extern PACKAGE GUID IID_IShellIcon;
  474. extern PACKAGE GUID IID_IShellFolder;
  475. extern PACKAGE GUID IID_IShellExtInit;
  476. extern PACKAGE GUID IID_IShellPropSheetExt;
  477. extern PACKAGE GUID IID_IExtractIconA;
  478. extern PACKAGE GUID IID_IExtractIcon;
  479. extern PACKAGE GUID IID_IShellLinkA;
  480. extern PACKAGE GUID IID_IShellLink;
  481. extern PACKAGE GUID IID_IShellCopyHook;
  482. extern PACKAGE GUID IID_IFileViewer;
  483. extern PACKAGE GUID IID_ICommDlgBrowser;
  484. extern PACKAGE GUID IID_IEnumIDList;
  485. extern PACKAGE GUID IID_IFileViewerSite;
  486. extern PACKAGE GUID IID_IContextMenu2;
  487. extern PACKAGE GUID IID_IShellDetails;
  488. extern PACKAGE GUID IID_IShellFolder2;
  489. static const Shortint SLR_NO_UI = 0x1;
  490. static const Shortint SLR_ANY_MATCH = 0x2;
  491. static const Shortint SLR_UPDATE = 0x4;
  492. static const Shortint SLGP_SHORTPATH = 0x1;
  493. static const Shortint SLGP_UNCPRIORITY = 0x2;
  494. #define CMDSTR_NEWFOLDER "NewFolder"
  495. #define CMDSTR_VIEWLIST "ViewList"
  496. #define CMDSTR_VIEWDETAILS "ViewDetails"
  497. static const Shortint SHGDN_NORMAL = 0x0;
  498. static const Shortint SHGDN_INFOLDER = 0x1;
  499. static const Word SHGDN_FORADDRESSBAR = 0x4000;
  500. static const Word SHGDN_FORPARSING = 0x8000;
  501. static const Shortint SHCONTF_FOLDERS = 0x20;
  502. static const Shortint SHCONTF_NONFOLDERS = 0x40;
  503. static const Byte SHCONTF_INCLUDEHIDDEN = 0x80;
  504. static const Shortint SHDVID_SETPROGRESSPOS = 0x0;
  505. static const Shortint SHDVID_SETPROGRESSRANGE = 0x1;
  506. static const Shortint SHDVID_SETSTATUSTEXT = 0x2;
  507. static const Shortint SHDVID_REFRESH = 0x3;
  508. static const Shortint SHDVID_STOP = 0x4;
  509. static const Shortint SHDVID_UPDATECOMMANDS = 0x5;
  510. static const Shortint SHDVID_SETTITLE = 0x6;
  511. static const Shortint SHDVID_FINALTITLEAVAIL = 0x7;
  512. static const Shortint SHDVID_STARTLOAD = 0x8;
  513. static const Shortint SHDVID_STOPLOAD = 0x9;
  514. static const Shortint SHDVID_CCALLBACK = 0xa;
  515. static const Shortint SHDVID_MENUEXEC = 0xb;
  516. static const Shortint SHDVID_MENUQS = 0xc;
  517. #define CFSTR_SHELLIDLIST "Shell IDList Array"
  518. #define CFSTR_SHELLIDLISTOFFSET "Shell Object Offsets"
  519. #define CFSTR_NETRESOURCES "Net Resource"
  520. #define CFSTR_FILEDESCRIPTORA "FileGroupDescriptor"
  521. #define CFSTR_FILEDESCRIPTORW "FileGroupDescriptorW"
  522. #define CFSTR_FILECONTENTS "FileContents"
  523. #define CFSTR_FILENAMEA "FileName"
  524. #define CFSTR_FILENAMEW "FileNameW"
  525. #define CFSTR_PRINTERGROUP "PrinterFriendlyName"
  526. #define CFSTR_FILENAMEMAPA "FileNameMap"
  527. #define CFSTR_FILENAMEMAPW "FileNameMapW"
  528. #define CFSTR_PREFERREDDROPEFFECT "Preferred DropEffect"
  529. #define CFSTR_FILEDESCRIPTOR "FileGroupDescriptor"
  530. #define CFSTR_FILENAME "FileName"
  531. #define CFSTR_FILENAMEMAP "FileNameMap"
  532. static const Shortint FD_CLSID = 0x1;
  533. static const Shortint FD_SIZEPOINT = 0x2;
  534. static const Shortint FD_ATTRIBUTES = 0x4;
  535. static const Shortint FD_CREATETIME = 0x8;
  536. static const Shortint FD_ACCESSTIME = 0x10;
  537. static const Shortint FD_WRITESTIME = 0x20;
  538. static const Shortint FD_FILESIZE = 0x40;
  539. static const Word FD_LINKUI = 0x8000;
  540. extern PACKAGE TSHGetDataFromIDListA SHGetDataFromIDList;
  541. extern "C" unsigned __stdcall SHGetMalloc(IMalloc* &pMalloc);
  542. extern "C" void __stdcall SHAddToRecentDocs(unsigned aFlags, void * pv);
  543. extern "C" PItemIDList __stdcall SHBrowseForFolder(const TBrowseInfo &aBrowseInfo);
  544. extern "C" unsigned __stdcall SHGetDesktopFolder(IShellFolder* &i);
  545. extern "C" BOOL __stdcall SHGetPathFromIDList(PItemIDList pidl, char * pszPath);
  546. extern "C" unsigned __stdcall SHGetInstanceExplorer(void * &unk);
  547. extern "C" unsigned __stdcall SHGetSpecialFolderLocation(HWND ahwnd, int nFolder, PItemIDList &pItemList
  548.     );
  549. extern "C" unsigned __stdcall SHChangeNotify(int wEventId, unsigned uFlags, void * dwItem1, void * dwItem2
  550.     );
  551.  
  552. }    /* namespace Uptshell95 */
  553. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  554. using namespace Uptshell95;
  555. #endif
  556. #pragma option pop    // -w-
  557.  
  558. #pragma delphiheader end.
  559. //-- end unit ----------------------------------------------------------------
  560. #endif    // UPTShell95
  561.